Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/mac/media/dirs/BackUp/GoodBad.dir/00033_Script_MovieAction

Text File | 2002-10-15 | 1KB | 40 lines

--Attach this behavior to a movie to receive commands from control buttons.
property BeginTime, MovieEnd, SpNum, mm, MemNum, MyMem

on new me
    SpNum = me.spritenum
  mm=sprite(spnum).member
  MemNum =mm.number
  MyMem = mm.name
  BeginTime = 0
end

--MouseDown Controls
on MovieActionDown me, MovieControl
  case MovieControl of
    "Play" :  sprite(SpNum).movierate = 1
    "Pause" :  sprite(SpNum).movierate = 0
    "Stop" : sprite(SpNum).movietime = 0
      sprite(SpNum).movierate = 0
    "Rewind" : sprite(SpNum).movierate = -2
    "Fast Forward" : sprite(SpNum).movierate = 2
  end case
end

--MouseUp Controls
on MovieActionUp me, MovieControl
  case (MovieControl) of
    "Rewind" : sprite(SpNum).movierate = 1
    "Fast Forward" : sprite(SpNum).movierate = 1
  end case
end

on CheckTime me
  if BeginTime = 0 then
    BeginTime = the Ticks
    MovieEnd = Member(MyMem).duration + BeginTime + 300
  end if
  if the ticks > MovieEnd then
    go to frame 1
  end if
end